home *** CD-ROM | disk | FTP | other *** search
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/Changelog,v
- retrieving revision 1.20
- diff -c -r1.20 Changelog
- *** 1.20 1993/07/13 20:29:53
- --- Changelog 1994/03/19 14:38:12
- ***************
- *** 308,310 ****
- --- 308,329 ----
- Corrections for building library with spf and ERROR_CHECK.
-
- ---------------------------- Patchlevel 22 ------------------------------
- +
- + ccos.c, ccsin.c:: Stefan Steyer (dc4i@br0.hrz.th-darmstadt.de)
- + Corrected bug introduced in the last patch. thanks to
- + Christian_Felsch@hh.maus.de for pointing it out.
- +
- + makefile.pml:: ++jrb
- + Make lib with NO_INLINE_MATH to back up 68881 code where math-68881.h
- + is not used (ie the inline definitions therein are not used).
- +
- + math.h:: ++jrb
- + sync up with changes to math.h in main lib to support
- + NO_INLINE_MATH
- +
- + mod.c:: michal -- thanks michal
- + fmod() from PML, when coprocessor not present, is defined in a
- + manner which is formally correct, but it is loosing
- + precision. fix provided.
- +
- + ---------------------------- Patchlevel 23 ------------------------------
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/PatchLev.h,v
- retrieving revision 1.19
- diff -c -r1.19 PatchLev.h
- *** 1.19 1993/07/13 20:29:56
- --- PatchLev.h 1994/03/19 14:38:24
- ***************
- *** 1,4 ****
- ! #define PatchLevel "22"
-
- /*
- *
- --- 1,4 ----
- ! #define PatchLevel "23"
-
- /*
- *
-
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/ccos.c,v
- retrieving revision 1.6
- diff -c -r1.6 ccos.c
- *** 1.6 1993/07/13 20:29:59
- --- ccos.c 1993/07/22 13:31:31
- ***************
- *** 86,91 ****
- --- 86,92 ----
- _funcname:
- .ascii \"ccos\\0\"
- .even
- + "); /* end asm */
- # endif ERROR_CHECK
- #endif defined (__M68881__) || defined (sfp004)
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/csin.c,v
- retrieving revision 1.6
- diff -c -r1.6 csin.c
- *** 1.6 1993/07/13 20:30:01
- --- csin.c 1993/07/22 13:31:31
- ***************
- *** 85,90 ****
- --- 85,91 ----
- _funcname:
- .ascii \"csin\\0\"
- .even
- + "); /* end asm */
- # endif ERROR_CHECK
- #endif defined (__M68881__) || defined (sfp004)
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/makefile.pml,v
- retrieving revision 1.3
- diff -c -r1.3 makefile.pml
- *** 1.3 1992/08/14 15:18:43
- --- makefile.pml 1993/11/07 23:54:07
- ***************
- *** 100,112 ****
- endif
-
- ifneq (,$(findstring true,$(s)))
- ! CFLAGS := $(CFLAGS) $(addprefix ,-D__MSHORT__ -mshort)
- PFLAGS := $(PFLAGS) $(addprefix ,-D__MSHORT__)
- OUTLIB := $(subst .olb,16.olb, $(OUTLIB))
- endif
-
- ifneq (,$(findstring 881,$(m)))
- ! CFLAGS := $(CFLAGS) $(addprefix ,-m68020 -m68881 -D__M68881__)
- OUTLIB := $(subst .olb,020.olb, $(OUTLIB))
- endif
-
- --- 100,112 ----
- endif
-
- ifneq (,$(findstring true,$(s)))
- ! CFLAGS := $(CFLAGS) $(addprefix , -mshort)
- PFLAGS := $(PFLAGS) $(addprefix ,-D__MSHORT__)
- OUTLIB := $(subst .olb,16.olb, $(OUTLIB))
- endif
-
- ifneq (,$(findstring 881,$(m)))
- ! CFLAGS := $(CFLAGS) $(addprefix ,-m68020 -m68881 -DNO_INLINE_MATH)
- OUTLIB := $(subst .olb,020.olb, $(OUTLIB))
- endif
-
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/math.h,v
- retrieving revision 1.16
- diff -c -r1.16 math.h
- *** 1.16 1993/07/13 20:30:04
- --- math.h 1993/11/08 00:13:51
- ***************
- *** 76,82 ****
-
- struct exception {
- exception_type type; /* exception type */
- ! char *name; /* function in which it occured */
- double arg1; /* an arg */
- double arg2; /* another arg */
- double retval; /* val to return */
- --- 76,82 ----
-
- struct exception {
- exception_type type; /* exception type */
- ! const char *name; /* function in which it occured */
- double arg1; /* an arg */
- double arg2; /* another arg */
- double retval; /* val to return */
- ***************
- *** 101,107 ****
- extern const double _infinitydf; /* in normdf.cpp */
-
-
- ! #if defined(_M68881) || defined(__M68881__)
- # include <math-68881.h>
- #else
- # define HUGE_VAL (_infinitydf)
- --- 101,113 ----
- extern const double _infinitydf; /* in normdf.cpp */
-
-
- ! #if defined(__GNUC_INLINE__) && (!defined(NO_INLINE_MATH)) && (defined(_M68881) || defined(__M68881__))
- ! # define _INLINE_MATH 1
- ! #else
- ! # define _INLINE_MATH 0
- ! #endif
- !
- ! #if _INLINE_MATH
- # include <math-68881.h>
- #else
- # define HUGE_VAL (_infinitydf)
- ***************
- *** 118,157 ****
- # endif
- #endif
-
- ! #if !(defined(_M68881) || defined(__M68881__))
- ! __EXTERN double acos __PROTO((double));
- __EXTERN double asin __PROTO((double));
- __EXTERN double atan __PROTO((double));
- ! __EXTERN double atanh __PROTO((double));
- ! __EXTERN double cos __PROTO((double));
- __EXTERN double cosh __PROTO((double));
- ! __EXTERN double fabs __PROTO((double));
- ! __EXTERN double dabs __PROTO((double));
- !
- __EXTERN double exp __PROTO((double));
- __EXTERN double log __PROTO((double));
- __EXTERN double log10 __PROTO((double));
- - __EXTERN double fmod __PROTO((double, double));
- - __EXTERN double sin __PROTO((double));
- - __EXTERN double sinh __PROTO((double));
- __EXTERN double sqrt __PROTO((double));
- __EXTERN double hypot __PROTO((double, double));
- ! __EXTERN double tan __PROTO((double));
- ! __EXTERN double tanh __PROTO((double));
- ! __EXTERN double floor __PROTO((double));
- __EXTERN double ceil __PROTO((double));
- __EXTERN double rint __PROTO((double));
-
- __EXTERN double acosh __PROTO((double));
- __EXTERN double asinh __PROTO((double));
- - __EXTERN double atan2 __PROTO((double, double));
- - __EXTERN double pow __PROTO((double, double));
- - #endif
-
- #ifndef __STRICT_ANSI__
-
- ! #if defined(_M68881) || defined(__M68881__)
- # define dabs(x) fabs(x)
- #endif
-
- __EXTERN double copysign __PROTO((double, double));
- --- 124,167 ----
- # endif
- #endif
-
- ! #if !_INLINE_MATH
- ! __EXTERN double sin __PROTO((double));
- ! __EXTERN double cos __PROTO((double));
- ! __EXTERN double tan __PROTO((double));
- __EXTERN double asin __PROTO((double));
- + __EXTERN double acos __PROTO((double));
- __EXTERN double atan __PROTO((double));
- ! __EXTERN double atan2 __PROTO((double, double));
- ! __EXTERN double sinh __PROTO((double));
- __EXTERN double cosh __PROTO((double));
- ! __EXTERN double tanh __PROTO((double));
- ! __EXTERN double atanh __PROTO((double));
- __EXTERN double exp __PROTO((double));
- __EXTERN double log __PROTO((double));
- __EXTERN double log10 __PROTO((double));
- __EXTERN double sqrt __PROTO((double));
- __EXTERN double hypot __PROTO((double, double));
- ! __EXTERN double pow __PROTO((double, double));
- ! __EXTERN double fabs __PROTO((double));
- __EXTERN double ceil __PROTO((double));
- + __EXTERN double floor __PROTO((double));
- __EXTERN double rint __PROTO((double));
- + __EXTERN double fmod __PROTO((double, double));
- +
- + __EXTERN double ldexp __PROTO((double, int));
- + __EXTERN double frexp __PROTO((double, int *));
- + __EXTERN double modf __PROTO((double, double *));
- + #endif
-
- __EXTERN double acosh __PROTO((double));
- __EXTERN double asinh __PROTO((double));
-
- #ifndef __STRICT_ANSI__
-
- ! #if _INLINE_MATH
- # define dabs(x) fabs(x)
- + #else
- + __EXTERN double dabs __PROTO((double));
- #endif
-
- __EXTERN double copysign __PROTO((double, double));
- ***************
- *** 186,197 ****
-
- #endif /* __STRICT_ANSI__ */
-
- - #if !(defined(_M68881) || defined(__M68881__))
- - __EXTERN double modf __PROTO((double, double *));
- - __EXTERN double ldexp __PROTO((double, int));
- - __EXTERN double frexp __PROTO((double, int *));
- - #endif /* !_M68881 */
- -
- #endif /* __TURBOC__ */
-
- #ifdef __cplusplus
- --- 196,201 ----
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/mod.c,v
- retrieving revision 1.6
- diff -c -r1.6 mod.c
- *** 1.6 1992/03/21 16:09:38
- --- mod.c 1994/03/17 04:21:18
- ***************
- *** 61,70 ****
- {
- double intpart;
-
- ! value /= base;
- ! value = modf (value, &intpart);
- ! value *= base;
- ! return (value);
- }
- #endif /* __M68881, sfp004 */
- #ifdef sfp004
- --- 61,68 ----
- {
- double intpart;
-
- ! (void) modf (value/base, &intpart);
- ! return(value - base * intpart);
- }
- #endif /* __M68881, sfp004 */
- #ifdef sfp004
- ===================================================================
- RCS file: /net/acae127/home/bammi/etc/src/master/atari/pml/pmlsrc/pow.c,v
- retrieving revision 1.5
- diff -c -r1.5 pow.c
- *** 1.5 1992/02/03 20:19:23
- --- pow.c 1993/11/07 23:40:08
- ***************
- *** 13,19 ****
- double log(), exp();
- #endif
-
- ! double
- pow(x,y)
- double x, y;
- {
- --- 13,19 ----
- double log(), exp();
- #endif
-
- ! double
- pow(x,y)
- double x, y;
- {
-